home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / sonstiges / tiffview116 / install tiffview < prev    next >
Text File  |  1995-08-19  |  5KB  |  191 lines

  1.  
  2. ; Install script for TIFFView (Workbench 2.1 or higher)
  3.  
  4. (set @default-dest "SYS:Tools")
  5. (set old_level @user-level)
  6.  
  7. (set reqtoolslib "reqtools.library")
  8. (set TIFFViewapp "TIFFView")
  9.  
  10. ;=============================================================================
  11. ; English strings
  12.  
  13. (set default_lang 1)
  14.  
  15. (set #bad-kick
  16. (cat "You must be using Kickstart 2.04 to install using this script!"
  17. ))
  18.  
  19. (set #reqtools-copy "Copying reqtools.library to Libs:...")
  20. (set #reqtools-help "Copies the reqtools.library to the Libs: directory")
  21.  
  22. (set #TIFFView-copy "Copying TIFFView...")
  23. (set #TIFFView-help "Copies TIFFView to your disk for usage.")
  24.  
  25. (set #select-TIFFView "Select the location to install TIFFView")
  26. (set #select-help "Choose a destination directory to contain the TIFFView application")
  27.  
  28. (set #which-language
  29. (cat "\nWhich languages should be installed?"
  30. ))
  31. (set #which-language-help
  32. (cat "\nThe Amiga can be operated in many different "
  33.       "languages. If you want TIFFView to use the same "
  34.       "language as the Amiga Workbench "
  35.       "then a catalog file must be copied to your"
  36.       " system disk for each language supported.\n\n"
  37.       "To reduce the amount of space consumed by the"
  38.       " language files, you can select to have only the"
  39.       " files of specific languages copied.\n\n"
  40.       "Simply check the boxes of the languages you wish"
  41.       " to have available on your system.\n\n"
  42.       @askoptions-help
  43. ))
  44.  
  45. (set #install-msg
  46. (cat "\n\nTIFFView installation script.\n"
  47.      "This script installs TIFFView and the ReqTools.library on your Amiga.\n\n"
  48.      "Read the TIFFView.readme file for more information.\n"
  49.      "TIFFView © 1993-1995 Bert Wynants\n"
  50.      "ReqTools © 1991-1993 Nico François\n"
  51.      "All rights reserved."
  52. ))
  53.  
  54.  
  55. ;=============================================================================
  56. ; Dutch strings
  57.  
  58. (if (= @language "nederlands")
  59. (
  60.  
  61. (set default_lang 4)
  62.  
  63. (set #bad-kick
  64. (cat "U moet Kickstart 2.04 gebruiken om met dit installatie script te installeren!"
  65. ))
  66.  
  67. (set #reqtools-copy "Kopieer reqtools.library naar Libs:...")
  68. (set #reqtools-help "Kopieert de reqtools.library naar de Libs: lade")
  69.  
  70. (set #TIFFView-copy "Kopieer TIFFView...")
  71. (set #TIFFView-help "Kopieert TIFFView naar uw disk om te gebruiken")
  72.  
  73. (set #select-TIFFView "Selecteer de lade om TIFFView te installeren")
  74. (set #select-help "Kies de lade waarin de TIFFView applicatie moet komen")
  75.  
  76. (set #which-language
  77. (cat "\nWelke talen moeten geïnstalleerd worden?"
  78. ))
  79. (set #which-language-help
  80. (cat "\nDe Amiga kan werken in verschillende talen."
  81.       " Als u wilt dat TIFFView in dezelfde taal werkt als uw Workbbench"
  82.       " dan moet er voor elke taal een bestand naar"
  83.       " uw systeem disk gekopieerd worden.\n\n"
  84.       "Om de grootte van het geheugen die de taal bestanden"
  85.       " innemen te verkleinen, kunt u een keuze maken uit"
  86.       " de talen, die vervolgens naar uw systeem disk worden"
  87.       " gekopieerd .\n\nU hoeft alleen die talen die u op"
  88.       " uw systeem wilt hebben aan te klikken.\n\n"
  89.      @askoptions-help
  90. ))
  91.  
  92. (set #install-msg
  93. (cat "\n\nTIFFView installatie script.\n"
  94.      "Dit script installeert TIFFView en de ReqTools library op uw Amiga.\n\n"
  95.      "Lees het TIFFView.readme bestand voor meer informatie\n"
  96.      "TIFFView © 1993-1995 Bert Wynants\n"
  97.      "ReqTools © 1991-1993 Nico François\n"
  98.      "All rights reserved."
  99. ))
  100.  
  101. ))
  102.  
  103. ;=============================================================================
  104. ; procedure to call on exit...
  105.  
  106. (procedure TERMINATE
  107.  
  108. )
  109.  
  110. ;=============================================================================
  111. ; termination stuff
  112.  
  113. (onerror (TERMINATE))
  114.  
  115. ;=============================================================================
  116. ; make sure we are running under a 2.04 ROM
  117.  
  118. (if (< (/ (getversion) 65536) 37)
  119. (
  120.     (abort #bad-kick)
  121. ))
  122.  
  123. ;=============================================================================
  124.  
  125. (message #install-msg)
  126.  
  127. ; copy reqtools, including version checking
  128.  
  129. (copylib
  130.         (prompt "\n" #reqtools-copy)
  131.         (help #reqtools-help)
  132.         (source reqtoolslib)
  133.         (dest "Libs:")
  134.         (confirm)
  135. )
  136.  
  137. (complete 20)
  138.  
  139. (set thedest 
  140.         (askdir (prompt #select-TIFFView)
  141.                 (default @default-dest)
  142.                 (help #select-help)
  143.         )
  144. )
  145.  
  146. ; copy TIFFView, including version checking
  147. (copylib
  148.     (prompt "\n" #TIFFView-copy)
  149.     (help #TIFFView-help)
  150.     (source TIFFViewapp)
  151.     (dest thedest)
  152.     (infos)
  153.     (confirm)
  154. )
  155.  
  156. (complete 50)
  157.  
  158. (if (exists "SYS:Locale")
  159. (
  160.     (if (exists "LOCALE:")
  161.     (
  162.         (user 2)
  163.         (set lang (askoptions (prompt #which-language)
  164.                               (help #which-language-help)
  165.                               (choices "English" "Nederlands")
  166.                               (default default_lang)
  167.                   )
  168.         )
  169.         (user old_level)
  170.  
  171.         (set n 0)
  172.         (while (set language (select n "english" "nederlands" ""))
  173.         (
  174.             (if (IN lang n)
  175.             (
  176.                 (if (<> 0 n)
  177.                 (
  178.                     (makedir (cat "LOCALE:Catalogs/" language))
  179.                     (copyfiles (source (cat "Catalogs/" language))
  180.                                (dest (cat "LOCALE:Catalogs/" language))
  181.                                (all)
  182.                     )
  183.                 ))
  184.             ))
  185.             (set n (+ n 1))
  186.         ))
  187.     ))
  188. ))
  189.  
  190. (complete 100)
  191.